{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Calysto Graphics with Scheme"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "(cm Rectangle px Text Picture Polyline mm Arc BarChart Ellipse Color em Circle ex Polygon Line Pixel Shape pt pc Canvas)"
      ]
     },
     "execution_count": 1,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "(import-from 'calysto.graphics '*)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "(define canvas (Canvas \"Title\" '(500 200)))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "(define circle (Circle '(250 150) 50))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAfQAAADICAYAAAAeGRPoAAAABmJLR0QA/wD/AP+gvaeTAAAPEklE\nQVR4nO3daYyc9WHH8e/MPHOtd9fGdoAWsL3rG2KOGJsjiDNxjGiAcDSO1KAqUaO2kSL1iFSpSZU2\nidS+bdSIRooiSAIJIU0Bu4QEB9LUMQYbghwT4sVeAwYSfID38Mw888wzfWGrh5Rd79q7+5/Z+X4s\nv7W/K2vm5+eZeZ4HJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmS\nJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmS\nJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmS\nJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmS\nJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmS\nJEmSJEmSJEmSJEmSJEnSLJQJHSBpyswBlgMLgblA9//5DTBy8vcwMAQcBvYCx2e8VNKUc9Cl9rQa\nuClP/n0R0cUJSX+DRm8vvZUeetIiRYoUMyVKUZFiBqBGrVmlmtSoNWvUGGY4M8RQV0R0LEduf0Ky\nu059F/Ak8OugP52kSXPQpfZwNvChIsVbU9KbIqJCH33pEpb0LGAB85nPXOaSJTupPzQl5RjHOHLy\n16u8OjzIYDYhqeXIba1SfRR4Ajg0HT+UpKnjoEutqwzcVqb8ZwnJ+mUsq69gRc9iFjOf+dP6Fx/l\nKAc4wF72Du9jXz4i2lGh8lXgUaA6rX+5pNPioEutp79E6QsJyZ3nc35jLWt7VrGKPPkgMTExL/My\nu9g19AZvRBHR96pUvwAcCBIk6Xdy0KXWsaaLri83aGy4mqsLa1mb6f6f77O1hmGG2cWuxna213Pk\nnjjO8b8F9oTukuSgS61gVZny15o011/DNYV1rMsUKYZuGleNGs/ybHMb2+Icue2jjH4KGAjdJXUy\nB10KZ06e/BezZD91IzeW38f7sqFOq5+umJjneT59iqcqTZpfjYm/gJfBSUE46NLMy2bJ/kmO3D9e\nyqWlm7ipVKIUuumMVKnyJE8ef5EXaynpXzRo3A80Q3dJncRBl2bWwjz573bTve4O7ui5gAtC90yp\nV3mVH/CDkVFGt9epbwKOhm6SOoWDLs2cD0RED1/N1aXrub442WvG20WDBlvZWnuO50bq1G8H/it0\nk9QJcqEDpA6QjYi+mCf/lbu4q3sd66LMLP6/dJYsS1kancM5XQMMfCxDppSS/hRPwUvTava+q0it\nIV+g8MA85m3cxKbu6b4hTKs5whEe5MGRIYY2x8QfB5LQTdJs5aBL06e3QOFH/fS/927unpPr0BNi\nDRo8xEOjgwzujok3cOLhMJKmmIMuTY/3FCn+5yVcsuRmbi7N5lPsE5GS8hiP1V7ipf01atdy4klv\nkqZQZx4ySNNrQZHijsu4bPFGNhY7fcwBMmRYycpomOG5hzl8d4PGt4FK6C5pNnHQpak1r0Dhuau4\natEH+WDBMf9fGTIsZ3muTr3nN/zmIyevVY9Dd0mzhYMuTZ1SidJTl3DJ8g1sKISOaVV99OWGGOo+\nzOENDRrfBBqhm6TZwEGXpkamTPn7i1h01e3c3vGfmZ/KMpZFr/HawgqVNQnJQ6F7pNnAQZemQET0\n12dx1ifv4Z5yp36bfTIyZFjN6mg3uxfXqY+kpDtCN0ntznce6cy9P0/+G5/kk11lyqFb2kaOHCtZ\nWdjJzusaNJ4CDoZuktrZ7Lz3pDRzFuTJP3IXd5V76Q3d0nbmMpc7ubMrT/5R6LC77khTzEGXzkAX\nXd++hEt6l7M8dErbWsEKLubiuV103R+6RWpnDrp0mnLkPlqidM1GNrbXQ8xb0M3cnC9QuB64I3SL\n1K4cdOn0zMuSvfdO7pwTEYVuaXsREXdwx5w8+a8Dc0P3SO3IQZdOQ5HiP13IheXzOC90yqyxiEWs\nZnWxSPHLoVukduSgS5N3UZPmxzewoRg6ZLbZwIZyk+YngNWhW6R242Vr0iSVKH3rRm5c0Uefd4+Z\nYgUK5Mhl3+TN/oTkgdA9UjvxCF2anLUZMtesZa2vnWmynvW5Js0bgDWhW6R24hG6NAklSl+/jutW\nLWaxR+fTJEuWDJnsW7y1KCF5MHSP1C48ypAm7r1NmtdfzuW+bqbZOtblUtIPACtDt0jtwjcmaYJK\nlP7qSq4s5PGy8+lWoMB61udLlD4bukVqFw66NDHlhOQPL+dyP6aaIetZHyUkmwCvJpAmwEGXJubD\n53Fe2kNP6I6O0UMP53JuCtwSukVqBw66NAFlyp9ey9ru0B2d5nIu7ylT/nToDqkdOOjSqS1MSNav\nYlXojo6zmtXUqb8fOCt0i9TqHHTp1G7upz8pUAjd0XGKFOmjLwY+FLpFanUOunQKZcofWclKT7cH\nsoIVPSVKt4fukFqdgy6dQkJyQx99oTM6Vh99nLwmXdI4HHRpfCvz5KOz/Ag3mIUsJEeuBCwN3SK1\nMgddGt/1/fR7m9fATp4huSF0h9TKHHRpHAUKVy1i0ZzQHZ1uMYvnFCleGbpDamUOujSOiGjNQhaG\nzuh4C1hAjtzFoTukVuagS+OoU+9fwILQGR1vAQuoU/czdGkcDro0tp6UdE4vvaE7Ot485tGg0Qv4\n8Yc0BgddGtuyXnorGfxOXGgZMvTSexy/6S6NyUGXxnZODz1p6Aid0E13CpwTukNqVQ66NLaeIkVf\nIy2iSDEDPu5OGotvVtLYukuUfI20iBKlHA66NCbfrKSx9ZQoRaEjdEKZcoSDLo3JQZfG1l2kmA8d\noRNO/ls46NIYHHRpHE2afsVdUltw0KWxDdeoxaEjdEKNWh0YCt0htSoHXRrbcJVqEjpCJ1SoJMBw\n6A6pVTno0tiGa9S8Dr1FVKmmOOjSmBx0aWzDJ0dELeDkf64cdGkMDro0tkMjjPgaaREn/y3eDt0h\ntSrfrKSx7T3Gsa4UD9JDS0kZYqgLGAjdIrUqB10a22hENHSMY6E7Ot67vEue/LtAJXSL1KocdGkc\nEdG+wxwOndHxDnOYHLlXQndIrcxBl8aRkPzyCEdCZ3S8IxyhTn136A6plTno0jhi4m0HOTgauqPT\nvc7ro3XqPw/dIbUyB10a349f4RVv/xpQkyb72JcFfhS6RWplDro0vteaNEf8HD2cQxwiQ+Zd4M3Q\nLVIrc9ClU8iQ2TrIYDN0R6caZLCZknp0Lp2Cgy6dQpXq4wMMjITu6FQDDAzHxD8M3SG1OgddOrXH\n97M/H+OD12ZajRoHOFAAngjdIrU6B106tcMR0U/3sMfT7jPsl/yymSP3JPBO6Bap1Tno0gRUqd67\nk50+i3uGPcdzQzVq/xq6Q2oHDro0MVt+y29z73igOGPe4R1O3tTHz8+lCXDQpYmpZ8l+7wVeqIcO\n6RS72FXPkn0ISEK3SO3AQZcmKCb+0na2J1WqoVNmvQoVdrAjqVH7UugWqV046NLE7c+Q2fIsz3qU\nPs12sKOeI/cI8FroFqldOOjSJMTEn9/GtsRL2KZPTMzP+XlSpfq50C1SO3HQpcl5OUPmZy/wQho6\nZLbayc5GjtxPgH2hW6R24qBLk1Sl+pdb2VodxYewTbURRniap2sVKp8N3SK1Gwddmrw9TZr3bmHL\n8dAhs81mNo+mpF8BfhW6RWo3Drp0GurUP7+PfSODDIZOmTUGGGAf+0YSkr8P3SK1IwddOj3HE5LP\nPMZjo4mXSZ+xhIQtbBmtU/9zoBK6R2pHDrp0mho0vjvK6NM/5IdemH6GtrDl+HGO/xj4t9AtUrty\n0KUzUKO2aTe7D73Iiz645TS9yIvpHvYcion/KHSL1M4cdOnMjNSo3bKFLZXDHA7d0nYOcYjNbK7G\nxLeAlw1IZyIXOkCaBd7OkKntY9/Vl3JpIefLakJq1LiP+0aOc/xvmjS3hO6R2p3vPNIUSEmfqVNf\n8SqvLl3DmmLWk1/jatDgm3xz+AhHvtug8fnQPdJs4KBLUyQlfbRC5aq3eOv8i7gonyETOqklpaQ8\nwAOVt3jr8Zj4ntA90mzhoEtTp9mg8e9DDN1epTpvKUuj0EGt6AmeqP6aX78UE38YH40qTRkHXZpa\nSYPG997m7Y+NMjpnKUtzHqmf0KTJ4zwe/4JfvB4TXwuMhG6SZhPfaaTpMadE6UcXcMFlH+Wj5YjO\nPlhPSPgO36kc5OCuKtWN+I12acp5hC5Nj3pC8q0RRtYNMPD7F3FRoVNHvUaN+7l/5E3e3Fqj9geA\nN+KRpoGDLk2fRoPGw1WqF/+KXy1eytJCmXLophl1hCPcx30jRzm6OSbeBNRDN0mzlafcpRmQI/fH\nWbL/spGNpbWs7Yhr2p7hmXQrWysp6acbNO4L3SPNdg66NHNWFyluXs7y37uVW8sFCqF7pkVMzCM8\nUnmFV948eYr95dBNUidw0KWZ1Vuk+K0uum64jdu6l7AkdM+UGmSQR3hkpELlyRq1e4Dh0E1Sp3DQ\npTA+UKT4jfM4b/6t3No1j3mhe87IO7zDYzw2cpCDR2PiTwBbQzdJncYvxUlh7G/Q+NoII7072Xlp\njlzuXM7NtNt94GNitrM9fZiHq8MMfzUmvhvYG7pL6kQeoUvhrcqT/+cMmauv5dr8OtYVihRDN42r\nRo1neKa6jW0N4Gcx8WeAgdBdUidz0KXWsaZA4e+Am6/giuxlXFaez/zQTf/PUY7yPM9XnuXZFNgS\nE/8DsCd0lyQHXWpF/Xnyn0tJN53N2fUruKL3Qi4k1Lfia9R4iZfYwY6hQxyKsmQfrFP/EnAgSJCk\n38lBl1pXGbitROlPE5Irl7AkWcayOf30czZnT9tf2qTJ27zNIIPsZe/oa7yWi4i2V6neCzyKd3qT\nWpKDLrWH9wAfKlG6BbihSbO3n/5GH33dC1jAfOYzl7lM9jnsKSnHOMaRk78OcGB4P/ujDJljGTI/\nqVD5D+AJ4PA0/EySppCDLrWn84Gb8uSvi4guTkj6GzR6e+mt9NCTlihlixRzJUpRiVIeoEq1XqWa\n1Kg1qlTTYYYzQwx1RUTHcuT2JyS769Sf5sQlZ2+E/OEkTd5/A2sL3POGYIfXAAAAAElFTkSuQmCC\n",
      "image/svg+xml": [
       "<svg baseProfile=\"full\" height=\"200\" version=\"1.1\" width=\"500\" xmlns=\"http://www.w3.org/2000/svg\" xmlns:ev=\"http://www.w3.org/2001/xml-events\" xmlns:xlink=\"http://www.w3.org/1999/xlink\"><defs /><circle cx=\"250\" cy=\"150\" fill=\"#800080\" r=\"50\" stroke=\"#000000\" stroke-width=\"1\" /></svg>"
      ],
      "text/plain": [
       "<Canvas (500 200)>"
      ]
     },
     "execution_count": 6,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "(circle.draw canvas)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "Calysto Scheme 3",
   "language": "scheme",
   "name": "calysto_scheme"
  },
  "language_info": {
   "codemirror_mode": {
    "name": "scheme"
   },
   "mimetype": "text/x-scheme",
   "name": "scheme",
   "pygments_lexer": "scheme"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 0
}